<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>4</cardCount>
<cardID>2861</cardID>
<listID>2095</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>512</height>
</cardSize>
<script>on openStackglobal globalLong,globalShortstart using stack globalLongpass openStackend openStackfunction makeListif ("•" is in the short name of this cd) thenput drawFigure("oval","1","12",,"fillUp") into nullsend ("openCard") to this cdelse if ("$System Info |" is in "$" & the short name of this cd) thenput the itemDelimiter into originalSettingset the itemDelimiter to "|"put last item of bg fld "Title" into folder1set the itemDelimiter to originalSettingdelete char 1 of folder1put todaysDate() & return & "---------------------------------------------------------------------------------" & return into theTextput listFiles(folder1,) into files1repeat with i = 1 to the number of lines of files1if (line i of files1 is not "Trash") thenput theText & textShift("right","• ",line i of files1) into theTextput folder1 & line i of files1 & ":" into folder2if (there is a folder folder2) thenput listFiles(folder2,) into files2repeat with j = 1 to the number of lines of files2put theText & textShift("right"," • ",line j of files2) into theTextput folder2 & line j of files2 & ":" into folder3if (there is a folder folder3) thenput listFiles(folder3,) into files3put theText & textShift("right"," • ",files3) into theTextend ifend repeatend ifend ifend repeatput theText into bg fld "Text"set the scroll of bg fld "Text" to 0end ifend makeListfunction textToDoDone theFld,theTextput the itemDelimiter into originalSettingset the itemDelimiter to ":"put first item of the short name of this cd into theTitleput last item of the short name of this cd into theDoset the itemDelimiter to originalSettingif (theDo is not "") thenif (theDo is "ToDo") then put theTitle & ":Done" into theToelse if (theDo is "Done") then put theTitle & ":ToDo" into theToif (there is a cd theTo) thendelete the selectedChunksend ("put theText after theFld of cd theTo") to HyperCardend ifend ifend textToDoDone</script>
